hodges1<-structure(list(State = structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 
10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 
26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 
42, 43, 44, 45), .Label = c("AL", "AZ", "CA", "CO", "CT", "DC", 
"DE", "FL", "GA", "GU", "HI", "IA", "ID", "IL", "IN", "KS", "KY", 
"LA", "MA", "MD", "ME", "MI", "MN", "MO", "NC", "ND", "NE", "NH", 
"NJ", "NM", "NV", "NY", "OH", "OK", "OR", "PA", "PR", "RI", "SC", 
"TN", "TX", "UT", "VA", "WA", "WI"), class = "factor"), expe = c(4455, 
5212, 6169, 5449, 6696, 7743, 5748, 5831, 4677, 2011, 6553, 4527, 
4026, 5570, 4879, 4548, 4216, 5044, 6086, 4835, 4867, 5750, 5035, 
5429, 4759, 4898, 5214, 4995, 5136, 4583, 5883, 6823, 5133, 4547, 
4787, 5490, 1942, 5063, 4868, 4859, 5179, 4688, 4875, 5035, 4450
), pop = c(4041, 3665, 29760, 3294, 3287, 607, 666, 12938, 6478, 
133, 1108, 2777, 1007, 11431, 5544, 2478, 3685, 4220, 6016, 4781, 
1228, 9295, 4375, 5117, 6629, 639, 1578, 1109, 7730, 1515, 1202, 
17990, 10847, 3146, 2842, 11882, 3522, 1003, 3487, 4877, 16987, 
1723, 6187, 4867, 4892), region = structure(c(7, 2, 5, 2, 4, 
6, 6, 6, 6, 5, 5, 3, 2, 3, 3, 3, 7, 7, 4, 6, 4, 3, 3, 3, 6, 3, 
3, 4, 1, 2, 2, 1, 3, 7, 5, 1, 6, 4, 6, 7, 7, 2, 6, 5, 3), .Label = c("MA", 
"MT", "NC", "NE", "PA", "SA", "SC"), class = "factor")), .Names = c("State", 
"expe", "pop", "region"), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
"14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", 
"25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", 
"36", "37", "38", "39", "40", "41", "42", "43", "44", "45"))
